﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class LstcotFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As LstcotBE
        Dim tmpLstcot As LstcotBE = New LstcotBE()
        Try
            With tmpLstcot
                .Cliente = convertDTFromDb.ConvertString(dr.Item("Cliente"))
                .Factura = convertDTFromDb.ConvertString(dr.Item("Factura"))
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .Numero = convertDTFromDb.ConvertLong(dr.Item("Numero"))
                .Obs = convertDTFromDb.ConvertString(dr.Item("Obs"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Total = convertDTFromDb.ConvertDecimal(dr.Item("Total"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
            End With
            Return tmpLstcot
        Catch ex As Exception
            Throw
        Finally
            tmpLstcot = Nothing
        End Try
    End Function
End Class
